-- card: 3260 from stack: in
-- bmap block id: 3598
-- flags: 4000
-- background id: 6557
-- name: 10
----- HyperTalk script -----
On OpenCard
  Put 10 Into Bkgnd field ID 26
end OpenCard

On ClearInfo
  Set hilite of Card button ID 12 of Card ID 3260 to false
  Set hilite of Card button ID 13 of Card ID 3260 to false
  Set hilite of Card button ID 14 of Card ID 3260 to false
  Put 0 into Card field ID 5 of Card ID 3260
  Put 0 into Card field ID 6 of Card ID 3260
  Put 0 into Card field ID 17 of Card ID 3260
  Put 0 into Card field ID 21 of Card ID 3260
end ClearInfo

On Signal
  Global Button22,Button23
  If Button22 = True then
    Send "Signal" to Card button ID 22 of card ID 2598
  else
    Send "Signal" to Card button ID 23 of card ID 2598
  end if
end Signal

On FindStatus
  Global CardNumber
  Get hilite of Card button ID 1 of Card ID 2982
  Put it into Button1
  Get hilite of Card button ID 2 of Card ID 2982
  Put it into Button2
  Get hilite of Card button ID 3 of Card ID 2982
  Put it into Button3
  Get hilite of Card button ID 4 of Card ID 2982
  Put it into Button4
  Get hilite of Card button ID 5 of Card ID 2982
  Put it into Button5

  If Button1 = true or Button4 = True then
    Send "DoButton12" to Card Button ID 12 of Card ID 3260
  else if Button2 = true or Button5 = true then
    Send "DoButton13" to Card Button ID 13 of Card ID 3260
  else if Button3 = true then
    Send "DoButton14" to Card Button ID 14 of Card ID 3260
  Else
    Get short number of this card
    Put it into CardNumber
    Go to Card ID 2982
    Put "Please select a Filing Status Box." into Card field ID 6 of Card ID 2982
  end if
end FindStatus



-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=78 right=107 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=98 top=110 right=125 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=108 top=128 right=169 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 4 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=154 right=169 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=154 right=169 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=186 right=201 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
On MouseUp
  Send "MouseUp" to Card Button ID 24 of Card ID 3260
End MouseUp


-- part 7 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=186 right=201 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 12 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=90 top=129 right=141 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
On MouseUp
  Set Cursor to 4
  Send "DeleteRest" to Card button ID 12 of Card ID 3260
  Send "GetAnswer" to Card Button ID 12 of Card ID 3260
End MouseUp

on DoButton12
  Global Flag1
  Send "DeleteRest" to Card button ID 12 of Card ID 3260
  If Flag1 is True then
    Send "Single" to Card Button ID 12 of Card ID 3260
  else
    Send "HeadButton" to Card Button ID 12 of Card ID 3260
  end if
end DoButton12

On Single
  Set Cursor to 4
  Global TotalBox
  Put Card field ID 11 of Card ID 2598 into TotalBox
  If TotalBox = 0 then
    Put 2540 into Card field ID 5 of Card ID 3260
    Set hilite of Card button ID 12 of Card ID 3260 to True
  else
    Set hilite of Card button ID 12 of Card ID 3260 to False
    Put 0 into card field ID 5 of card ID 3260
    Send "SingleButton" to Card field ID 11 of Card ID 2598
  End If
End Single

On HeadButton
  Set Cursor to 4
  Global TotalBox
  Put Card field ID 11 of Card ID 2598 into TotalBox
  If TotalBox = 0 then
    Set hilite of Card button ID 12 of Card ID 3260 to True
    Put 2540 into Card field ID 5 of Card ID 3260
  else
    Set hilite of Card button ID 12 of Card ID 3260 to False
    Put 0 into card field ID 5 of card ID 3260
    Send "HeadButton" to Card field ID 11 of Card ID 2598
  End If
End HeadButton

On ButtonOff
  Set hilite of Card button ID 12 of Card ID 3260 to false
  Put 0 into Card field ID 5 of Card ID 3260
  Send "ClearInfo" to Card ID 2982
end ButtonOff

On Signal
  Visual effect wipe Right
  Go to Card ID 3260
  Repeat 7 times
    Get hilite of Card button ID 12 of Card ID 3260
    If it is True then
      Set hilite of Card Button ID 12 to False
    else
      Set hilite of Card Button ID 12 to True
    end if
  end Repeat
end Signal

On GetAnswer
  Set Cursor to 4
  Put hilite of Card button ID 12 of Card ID 3260 into Button12
  If Button12 = true then
    Answer "Choose your filing status" with "Head"  or "Single"
    Set Cursor to 4
    If it is "Single" then
      Send "SingleT" to Card button ID 1 of Card ID 2982
      Set hilite of Card Button ID 1 of Card ID 2982 to True
      Send "Single" to Card Button ID 12 of Card ID 3260
    else
      Set hilite of Card Button ID 4 of Card ID 2982 to True
      Send "HeadT" to Card button ID 4 of Card ID 2982
      Send "HeadButton" to Card Button ID 12 of Card ID 3260
    End if
  else
    Send "ButtonOff" to Card Button ID 12 of Card ID 3260
  end if
End GetAnswer

On DeleteRest
  Set hilite of Card button ID 13 of Card ID 3260 to false
  Set hilite of Card button ID 14 of Card ID 3260 to false
end DeleteRest










-- part 13 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=90 top=142 right=154 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
On MouseUp
  Set Cursor to 4
  Send "DeleteRest" to Card button ID 13 of Card ID 3260
  Send "GetAnswer" to Card Button ID 13 of Card ID 3260
End MouseUp

on DoButton13
  Set hilite of Card button ID 13 of Card ID 3260 to True
  Send "DeleteRest" to Card button ID 13 of Card ID 3260
  Send "MarriedJoint" to Card Button ID 13 of Card ID 3260
end DoButton13

On MarriedJoint
  Set Cursor to 4
  Global TotalBox
  Put Card field ID 11 of Card ID 2598 into TotalBox
  If TotalBox = 0 then
    Put 3760 into Card field ID 5 of Card ID 3260
    Set hilite of Card button ID 13 of Card ID 3260 to True
  else
    Set hilite of Card button ID 13 of Card ID 3260 to False
    Put 0 into card field ID 5 of card ID 3260
    Send "MarriedJ" to Card field ID 11 of Card ID 2598
  End If
End MarriedJoint


On ButtonOff
  Set hilite of Card button ID 13 of Card ID 3260 to false
  Put Zero into Card field ID 5 of Card ID 3260
  Send "ClearInfo" to Card ID 2982
end ButtonOff

On GetAnswer
  Global Flag3
  Set Cursor to 4
  Put hilite of Card button ID 13 of Card ID 3260 into Button13
  If Button13 = true then
    Answer "Choose your filing status" with "Joint" or "Widow(er)"
    Set Cursor to 4
    If it is "Joint" then
      Send "MarriedJointT" to Card button ID 2 of Card ID 2982
      Set hilite of Card Button ID 2 of Card ID 2982 to True
    else
      Set hilite of Card Button ID 5 of Card ID 2982 to True
      Send "WidowT" to Card button ID 5 of Card ID 2982
    End if
    Send "MarriedJoint" to Card Button ID 13 of Card ID 3260
  else
    Send "ButtonOff" to Card Button ID 13 of Card ID 3260
  end if
End GetAnswer

On DeleteRest
  Set hilite of Card button ID 12 of Card ID 3260 to false
  Set hilite of Card button ID 14 of Card ID 3260 to false
end DeleteRest



-- part 14 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=90 top=155 right=167 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
On MouseUp
  Set Cursor to 4
  Send "DeleteRest" to Card button ID 14 of Card ID 3260
  Send "GetAnswer" to Card Button ID 14 of Card ID 3260
End MouseUp

on DoButton14
  Set hilite of Card button ID 14 of Card ID 3260 to True
  Send "DeleteRest" to Card button ID 14 of Card ID 3260
  Send "MarriedSeperate" to Card Button ID 14 of Card ID 3260
end DoButton14

On MarriedSeperate
  Set Cursor to 4
  Global TotalBox
  Put Card field ID 11 of Card ID 2598 into TotalBox
  If TotalBox = 0 then
    Set hilite of Card button ID 14 of Card ID 3260 to True
    Put 1880 into Card field ID 5 of Card ID 3260
  else
    Set hilite of Card button ID 14 of Card ID 3260 to False
    Put 0 into card field ID 5 of card ID 3260
    Send "MarriedS" to Card field ID 11 of Card ID 2598
  End If
End MarriedSeperate


On ButtonOff
  Set hilite of Card button ID 14 of Card ID 3260 to false
  Put Zero into Card field ID 5 of Card ID 3260
end ButtonOff

On GetAnswer
  Global Flag3
  Set Cursor to 4
  Put hilite of Card button ID 14 of Card ID 3260 into Button14
  If Button14 = true then
    Set Cursor to 4
    Send "MarriedSeperateT" to Card button ID 3 of Card ID 2982
    Set hilite of Card Button ID 3 of Card ID 2982 to True
    Send "MarriedSeperate" to Card Button ID 14 of Card ID 3260
  else
    Put Zero into Card field ID 5 of Card ID 3260
  end if
End GetAnswer

On DeleteRest
  Set hilite of Card button ID 12 of Card ID 3260 to false
  Set hilite of Card button ID 13 of Card ID 3260 to false
end DeleteRest



-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=173 right=203 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=205 right=235 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 17 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=218 right=233 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
On MouseUp
  Send "MouseUp" to Card Button ID 25 of Card ID 3260
End MouseUp


-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=237 right=266 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 19 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=250 right=265 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 20 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=218 right=233 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 21 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=250 right=265 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
On MouseUp
  Send "MouseUp" to Card Button ID 23 of Card ID 3260
End MouseUp


-- part 23 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=195 top=236 right=250 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Subtract
----- HyperTalk script -----
on mouseUp
  Set cursor to 4
  Put Card field ID 17 of Card ID 3260 into Line35 -- Line 35
  If Line35 = 0 then
    Send "MouseUp" to Card button ID 25 of Card ID 3260
    Put Card field ID 17 of Card ID 3260 into Line35 -- Line 35
  end IF

  Put Card field ID 6 of Card ID 3260 into Line34 -- Line 34
  If Line34 = 0 then
    Send "MouseUp" to Card button ID 24 of Card ID 3260
    Put Card field ID 6 of Card ID 3260 into Line34 -- Line 34
  end IF

  Put (Line34 - Line35) into Total
  If total >= 0 then
    Put total into Card field ID 21 of Card ID 3260
  else
    Put 0 into Card field ID 21 of Card ID 3260
  end if
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=108 top=173 right=187 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Subtract
----- HyperTalk script -----
on mouseUp
  Set cursor to 4
  Put Card field ID 25 of Card ID 2598 into Temp -- Line 33a
  Put Card field ID 5 of Card ID 3260 into Temp1 -- Line 33b
  Put Card field ID 3 of Card ID 2598 into Total -- Line 31

  If temp1 = 0 and Temp = 0 then
    Send "FindStatus" to Card ID 3260
    If temp1 = 0 and Temp = 0 then
      Exit MouseUp
    End if
  End if

  If Total <= 0 then
    Send "MouseUp" to Card button ID 4 Of Card ID 7846
    Put Card field ID 3 of Card ID 2598 into Total
    If Total <= 0 then
      Exit MouseUp
    end if
  end if

  If Temp > Temp1 then
    Put Temp into itemize
  else
    put Temp1 into itemize
  end if
  Put (Total - itemize) into Card field ID 6 of Card ID 3260
end mouseUp




-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=109 top=204 right=219 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multiply
----- HyperTalk script -----
on mouseUp
  Set cursor to 4
  Put Card field ID 3 of Card ID 8013 into temp -- line 6e
  If temp = 0 then
    Send "MouseUp" to Card button ID 6 of Card ID 8013
    Put Card field ID 3 of Card ID 8013 into Temp
  end IF
  Put (temp * 1900) into Card field ID 17 of Card ID 3260 -- line 35
end mouseUp



-- part 26 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=6 top=59 right=74 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part contents for background part 26
----- text -----
10

-- part contents for background part 13
----- text -----
Tax Compu - tation

-- part contents for background part 18
----- text -----
page 16 for the amount to enter on line 33b.

-- part contents for background part 16
----- text -----
If you checked any box on line 32a, b, or c and you don't itemize, see

-- part contents for background part 15
----- text -----

 Caution:






-- part contents for card part 1
----- text -----
33b.  Standard deduction.  Read CAUTION to left.  If it applies, see
         page 16 for the amount to enter.

-- part contents for card part 2
----- text -----
If CAUTION doesn't apply and your filing status from page 1 is:

-- part contents for card part 3
----- text -----
Single or Head of Household, enter $2540
Married filing jointly or Qualifying widow(er), enter $3760
Married filing seperately, enter $ 1880

-- part contents for card part 4
----- text -----
33b

-- part contents for card part 7
----- text -----
34

-- part contents for card part 20
----- text -----
35

-- part contents for card part 19
----- text -----
36

-- part contents for card part 15
----- text -----
34.                          line 33a or 33b, whichever applies, from 
       line 31.  enter the result here. . . . . . . . . . . . . . . . . . . . . . . 

-- part contents for card part 16
----- text -----
35.                          $1900 by the total number of exemptions 
       claimed on line 6e or see chart on page 16. . . . . . . . . . . . . .

-- part contents for card part 18
----- text -----
36. Taxable income.                            line 35 from line 34.  Enter 
       the result (but not less than zero). . . . . . . . . . . . . . . . . . . . . . . 

-- part contents for background part 20
----- text -----
Continue to next card

-- part contents for card part 26
----- text -----
(Continued)

-- part contents for card part 5
----- text -----
0

-- part contents for card part 6
----- text -----
0

-- part contents for card part 17
----- text -----
0

-- part contents for card part 21
----- text -----
0

-- part contents for background part 40
----- text -----
4:06 PM